﻿Imports Microsoft.VisualBasic.FileIO
Module Module1
  Sub Main()

    ' cancella la cartella indicata, compreso
    ' il contenuto:
    My.Computer.FileSystem.DeleteDirectory(
        "C:\origine",
        DeleteDirectoryOption.DeleteAllContents)
    ' cancella la cartella indicata,
    ' se non è vuota, solleva un'eccezione:
    My.Computer.FileSystem.DeleteDirectory(
        "C:\origine",
        DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
    ' cancella un file, visualizzando tutte
    ' le finestre di dialogo e inviando il file
    ' nel cestino di Windows
    My.Computer.FileSystem.DeleteFile(
        "C:\cancella.txt",
        UIOption.AllDialogs,
        RecycleOption.SendToRecycleBin)
    ' come sopra ma cancellando il file 
    ' permanentemente
    My.Computer.FileSystem.DeleteFile(
        "C:\cancella.txt",
        UIOption.AllDialogs,
        RecycleOption.DeletePermanently)

  End Sub
End Module
